50 DU=29:REM DUMMY DEV. (INTERMEDIARY)
60 AD=119:REM MAKE AD=12 FOR OLD COMMODORE DRIVES
70 PRINT"[147]":POKE53281,0:POKE53280,0
80 FORI=8TO29
82 OPEN8,I,8:CLOSE8
84 IFST=0THENDD=I:I=29
86 NEXT
90 SD=0:FORI=8TO29:IFI=DDTHEN96
92 OPEN8,I,8:CLOSE8
94 IFST=0THENSD=I:I=29
96 NEXT
100 PRINT "[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
102 [129]I[178]0[164]8[170]6[172](SD[178]0):[153] "(null)                                     (null)":[130]
104 [153] "/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
106 [139]SD[178]0[167]130
110 [153] "CONT (null)WAP DISK DRIVE UNITLIST";DD
112 [153] "CONT WITH DISK DRIVE UNITLIST";SD
116 [153] " (null)(null)ATNLENVAL CONT- LENHANGE UNITS TO BE SWAPPED
118 PRINT " [210][197][212][213][210][206] [154]- [208]ERFORM SWAP/CHANGE
120 [137]180
130 [153] "CONT LENHANGE DRIVE UNITLIST";DD"CONTTO    CMDCMDCMD";
140 [141]50000
142 [139]Q9[179]8[176]Q9[177]29[167]130
150 SD[178]Q9:SW[178]0
160 [159]15,DD,15
162 [152]15,"M-W" [199](119) [199](0) [199](2) [199](SD[170]32) [199](SD[170]64)
164 [160]15
170 [137]280
180 [161]A$:[139]A$[178]" "[167][141]400
190 [139]A$[179][177][199](13)[167]180
195 [139]DD[179]8[176]DD[177]29[176]SD[179]8[176]SD[177]29[167]180
197 U[178]DD:[139]DD[178]SD[167][128]
200 [159]8,DD,15:[160]8:[139] ST[167]SK[178]1:U[178]SD:[137]230
205 [159]8,DD,15
210 [159]9,SD,15:[160] 9:[139] ST[167]260
220 [152]8,"M-W" [199]( AD) [199](0) [199](2) [199](DU[170]32) [199](DU[170]64):[160]8
230 [159]9,SD,15
240 [152]9,"M-W" [199](119) [199](0) [199](2) [199](DD[170]32) [199](DD[170]64):[160]9
245 [139]SKIP[167]270
250 [159]8,DU,15:SW[178]1
260 [152]8,"M-W" [199]( AD) [199](0) [199](2) [199](SD[170]32) [199](SD[170]64):[160]8
270 :
280 [151]214,11:[153]:[139]SW[167][153]"STR$RIVESLIST"SD"ANDLIST"DD"HAVE BEEN SWAPPED."
290 [139]SW[178]0[167][153]"STR$RIVELIST"DD"HAS BEEN CHANGED TOLIST"SD"CMD."
300 [128]
400 [151]214,2:[153]
410 [153][163]24)"  CMDCMD";:[141]50000
420 [139]Q9[179]4[176]Q9[177]30[167]400
430 DD[178]Q9:[153]
440 [153][163]24)"  CMDCMD";:[141]50000
450 [139]Q9[179]4[176]Q9[177]30[167]400
460 SD[178]Q9
470 [142]
10000 D[178][194](186):N$[178]"DRIVE SWAPPER":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
50000 Q9$[178]"":U9[178]53280:[151]198,0
50010 [161]A$
50020 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]50010
50030 [139]A$[178][199](13)[167][153]" ":Q9[178][197](Q9$):[142]
50040 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]50090
50050 [139][195](Q9$)[177][178]2[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]50010
50060 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]50010
50070 Q9$[178]Q9$[170]A$
50080 [153]""A$;:[137]50010
50090 [153]" CMDCMD CMD";:[137]50010